#lang r5rs
(define (repeat f n)
  (lamdba (x) (f (repeat f (- n 1))))
